home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 May: Tool Chest / Developer CD Series Tool Chest (Apple Computer)(May 1999).iso / Tool Chest / Development Kits / MPW etc / MPW-GM / MPW / Scripts / BuildMenu < prev    next >
Encoding:
Text File  |  1993-05-07  |  1.8 KB  |  68 lines  |  [TEXT/MPS ]
  1. #    BuildMenu - create the Build menu
  2. #
  3. #    Usage:
  4. #        BuildMenu
  5. #
  6. #    BuildMenu creates the menu shown below.
  7. #
  8. #        Build
  9. #
  10. #          Create Build Commands…
  11. #          -------------------------
  12. #          Build…                      #B
  13. #          Full Build…
  14. #          Show Build Commands…
  15. #          Show Full Build Commands…
  16. #
  17. #
  18. #    Copyright Apple Computer, Inc. 1987 - 1990
  19. #    All rights reserved.
  20.  
  21.  
  22. Set Exit 0
  23. DeleteMenu Build ≥ Dev:Null
  24. AddMenu Build 'Create Build Commands…' ∂
  25. 'Set NewProgram "`Commando CreateMake || Echo Set Status 0`"; ∂
  26.   Exit If "{NewProgram}" == ""; ∂
  27. (Set Program `{NewProgram} ≥ "{ShellDirectory}"MPW.Errors ∂
  28.   || Alert < "{ShellDirectory}"MPW.Errors`|| set status 0) ∑ Dev:Null'
  29.  
  30. AddMenu Build '(-' ''
  31. AddMenu Build 'Build…/B' ∂
  32.     'Begin; ∂
  33.      Set NewProgram "`Request "Program Name?" -d "{Program}" || Echo '""'`"; ∂
  34.      Exit If "{NewProgram}" == ""; ∂
  35.      Set Program "{NewProgram}"; ∂
  36.      Open "{Worksheet}"; ∂
  37.      Echo; Echo; ∂
  38.      BuildProgram "{Program}"; ∂
  39.      End >> "{Worksheet}" ≥≥ Dev:StdOut'
  40. AddMenu Build 'Full Build…' ∂
  41.     'Begin; ∂
  42.      Set NewProgram "`Request "Program Name?" -d "{Program}" || Echo '""'`"; ∂
  43.      Exit If "{NewProgram}" == ""; ∂
  44.      Set Program "{NewProgram}"; ∂
  45.      Open "{Worksheet}"; ∂
  46.      Echo; Echo; ∂
  47.      BuildProgram -e "{Program}"; ∂
  48.      End >> "{Worksheet}" ≥≥ Dev:StdOut'
  49. AddMenu Build 'Show Build Commands…' ∂
  50.     'Begin; ∂
  51.     Set NewProgram "`Request "Program Name?" -d "{Program}" || Echo '""'`"; ∂
  52.      Exit If "{NewProgram}" == ""; ∂
  53.      Set Program "{NewProgram}"; ∂
  54.      Open "{Worksheet}"; ∂
  55.      Echo; Echo; ∂
  56.      BuildCommands "{Program}"; ∂
  57.      End >> "{Worksheet}" ≥≥ Dev:StdOut'
  58. AddMenu Build 'Show Full Build Commands…' ∂
  59.     'Begin; ∂
  60.      Set NewProgram "`Request "Program Name?" -d "{Program}" || Echo '""'`"; ∂
  61.      Exit If "{NewProgram}" == ""; ∂
  62.      Set Program "{NewProgram}"; ∂
  63.      Open "{Worksheet}"; ∂
  64.      Echo; Echo; ∂
  65.      BuildCommands -e "{Program}"; ∂
  66.      End >> "{Worksheet}" ≥≥ Dev:StdOut'
  67. Exit 0
  68.